home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / Metafont-Example.mf < prev    next >
Encoding:
Text File  |  2000-10-30  |  10.6 KB  |  598 lines
  1. % Metafont-Example.mf
  2. % 
  3. % This is a sample file for the Metafont mode with Alpha. 
  4. % 
  5. % The features which are herein described will work only if Metafont Mode
  6. % has been properly installed.
  7. % 
  8. % 
  9. % — syntax colorizing
  10. % 
  11. % — capacity to process a source file from within Alpha with various flags,
  12. % printer modes, input base files
  13. % 
  14. % - editing of the log file
  15. % 
  16. % - capacity to make the pk file, to make the dvi from the generic font, to
  17. % view the dvi;
  18. % 
  19. % - creating and editing the property list for a font
  20. % 
  21. % - processing all the source files in a folder instead of a single file
  22. % 
  23. % - file marking
  24. % 
  25. % - ready to use template for a new font
  26. % 
  27. % - key bindings to choose the processing mode, process files etc.
  28. % 
  29. % - command clicking on a word leads to its definition
  30. % 
  31. % - option clicking on the title bar of a window brings a list of .mf and
  32. % .log file at the same level or in a selected folder and allows to edit
  33. % them
  34. % 
  35. % Please see the Metafont Help file for more information.  
  36. % Please check for the latest version of Metafont Mode at :
  37. % 
  38. % <http://perso.easynet.fr/~berdesg/metafont.html>
  39. % 
  40. % The example below is borrowed from the OzTeX distribution.
  41. % 
  42. % Author:  ??
  43.  
  44. % circle.mf
  45.  
  46.  
  47. fontdimen 1: 0,0,0,0,0,0,0,thickness#;
  48. font_coding_scheme:="LaTeX circle";
  49.  
  50. let cmchar=\; % cmchar should precede each character, for testing purposes
  51.  
  52. thickness:=ceiling(thickness#*hppp); % the way rules thicknesses are done
  53. % thickness#:=thickness/hppp; % and let thickness# round to right value
  54. % NO, I deleted this BAD line! --- DEK, 9 Jul 87
  55. pickup pencircle scaled thickness; nib:=savepen;
  56.  
  57. % arcs sets up the points 1, 2, ..., 8 as follows:
  58. %
  59. %            |1
  60. %            |*
  61. %            * *
  62. %           8|  2
  63. %          * |   *
  64. %        7*  |    *3
  65. %        --*-----*--
  66. %           6|  4
  67. %            * *
  68. %            |5
  69. %
  70. %        <----w---->
  71.  
  72. pair upleft,upright,downleft,downright;
  73. upright=-downleft=(1,1); downright=-upleft=(1,-1);
  74.  
  75. % a quarter-circle has width, height and depth set as explained on
  76. % page 389 of the TeXbook, not the real width, height, and depth
  77.  
  78. def qbeginchar (expr c, diam_sharp) =
  79. numeric hh, dd; hh:=.5*(diam_sharp+thickness#);
  80. dd:=.5*(diam_sharp-thickness#);
  81. beginchar(c,diam_sharp,hh,dd);
  82. enddef;
  83.  
  84. def arcs =
  85. numeric delta;
  86. delta:=.5 round((1-sqrt.5)*w); % distance from axis to arc's 45 degree points
  87. bot y3=0; y7=y3=.5[y5,y1]; y1-y5=w;
  88. lft x1=0; x5=x1=.5[x7,x3]; x3-x7=w;
  89. x2-x1=delta; x1-x8=delta; x8=x6; x2=x4;
  90. y8-y7=delta; y7-y6=delta; y8=y2; y6=y4;
  91. enddef;
  92.  
  93. cmchar "2pt, top right";
  94. qbeginchar(0,4pt#);
  95. numeric delta;
  96. pickup nib;
  97. arcs;
  98. draw z7{right}..z6{downright}..z5{down};
  99. endchar;
  100.  
  101. cmchar "2pt, bottom right";
  102. qbeginchar(1,4pt#);
  103. numeric delta;
  104. pickup nib;
  105. arcs;
  106. draw z1{down}..z8{downleft}..z7{left};
  107. endchar;
  108.  
  109. cmchar "2pt, bottom left";
  110. qbeginchar(2,4pt#);
  111. numeric delta;
  112. pickup nib;
  113. arcs;
  114. draw z3{left}..z2{upleft}..z1{up};
  115. endchar;
  116.  
  117. cmchar "2pt, top left";
  118. qbeginchar(3,4pt#);
  119. numeric delta;
  120. pickup nib;
  121. arcs;
  122. draw z5{up}..z4{upright}..z3{right};
  123. endchar;
  124.  
  125. cmchar "4pt, top right";
  126. qbeginchar(4,8pt#);
  127. numeric delta;
  128. pickup nib;
  129. arcs;
  130. draw z7{right}..z6{downright}..z5{down};
  131. endchar;
  132.  
  133. cmchar "4pt, bottom right";
  134. qbeginchar(5,8pt#);
  135. numeric delta;
  136. pickup nib;
  137. arcs;
  138. draw z1{down}..z8{downleft}..z7{left};
  139. endchar;
  140.  
  141. cmchar "4pt, bottom left";
  142. qbeginchar(6,8pt#);
  143. numeric delta;
  144. pickup nib;
  145. arcs;
  146. draw z3{left}..z2{upleft}..z1{up};
  147. endchar;
  148.  
  149. cmchar "4pt, top left";
  150. qbeginchar(7,8pt#);
  151. numeric delta;
  152. pickup nib;
  153. arcs;
  154. draw z5{up}..z4{upright}..z3{right};
  155. endchar;
  156.  
  157. cmchar "6pt, top right";
  158. qbeginchar(8,12pt#);
  159. numeric delta;
  160. pickup nib;
  161. arcs;
  162. draw z7{right}..z6{downright}..z5{down};
  163. endchar;
  164.  
  165. cmchar "6pt, bottom right";
  166. qbeginchar(9,12pt#);
  167. numeric delta;
  168. pickup nib;
  169. arcs;
  170. draw z1{down}..z8{downleft}..z7{left};
  171. endchar;
  172.  
  173. cmchar "6pt, bottom left";
  174. qbeginchar(10,12pt#);
  175. numeric delta;
  176. pickup nib;
  177. arcs;
  178. draw z3{left}..z2{upleft}..z1{up};
  179. endchar;
  180.  
  181. cmchar "6pt, top left";
  182. qbeginchar(11,12pt#);
  183. numeric delta;
  184. pickup nib;
  185. arcs;
  186. draw z5{up}..z4{upright}..z3{right};
  187. endchar;
  188.  
  189. cmchar "8pt, top right";
  190. qbeginchar(12,16pt#);
  191. numeric delta;
  192. pickup nib;
  193. arcs;
  194. draw z7{right}..z6{downright}..z5{down};
  195. endchar;
  196.  
  197. cmchar "8pt, bottom right";
  198. qbeginchar(13,16pt#);
  199. numeric delta;
  200. pickup nib;
  201. arcs;
  202. draw z1{down}..z8{downleft}..z7{left};
  203. endchar;
  204.  
  205. cmchar "8pt, bottom left";
  206. qbeginchar(14,16pt#);
  207. numeric delta;
  208. pickup nib;
  209. arcs;
  210. draw z3{left}..z2{upleft}..z1{up};
  211. endchar;
  212.  
  213. cmchar "8pt, top left";
  214. qbeginchar(15,16pt#);
  215. numeric delta;
  216. pickup nib;
  217. arcs;
  218. draw z5{up}..z4{upright}..z3{right};
  219. endchar;
  220.  
  221. cmchar "10pt, top right";
  222. qbeginchar(16,20pt#);
  223. numeric delta;
  224. pickup nib;
  225. arcs;
  226. draw z7{right}..z6{downright}..z5{down};
  227. endchar;
  228.  
  229. cmchar "10pt, bottom right";
  230. qbeginchar(17,20pt#);
  231. numeric delta;
  232. pickup nib;
  233. arcs;
  234. draw z1{down}..z8{downleft}..z7{left};
  235. endchar;
  236.  
  237. cmchar "10pt, bottom left";
  238. qbeginchar(18,20pt#);
  239. numeric delta;
  240. pickup nib;
  241. arcs;
  242. draw z3{left}..z2{upleft}..z1{up};
  243. endchar;
  244.  
  245. cmchar "10pt, top left";
  246. qbeginchar(19,20pt#);
  247. numeric delta;
  248. pickup nib;
  249. arcs;
  250. draw z5{up}..z4{upright}..z3{right};
  251. endchar;
  252.  
  253. cmchar "12pt, top right";
  254. qbeginchar(20,24pt#);
  255. numeric delta;
  256. pickup nib;
  257. arcs;
  258. draw z7{right}..z6{downright}..z5{down};
  259. endchar;
  260.  
  261. cmchar "12pt, bottom right";
  262. qbeginchar(21,24pt#);
  263. numeric delta;
  264. pickup nib;
  265. arcs;
  266. draw z1{down}..z8{downleft}..z7{left};
  267. endchar;
  268.  
  269. cmchar "12pt, bottom left";
  270. qbeginchar(22,24pt#);
  271. numeric delta;
  272. pickup nib;
  273. arcs;
  274. draw z3{left}..z2{upleft}..z1{up};
  275. endchar;
  276.  
  277. cmchar "12pt, top left";
  278. qbeginchar(23,24pt#);
  279. numeric delta;
  280. pickup nib;
  281. arcs;
  282. draw z5{up}..z4{upright}..z3{right};
  283. endchar;
  284.  
  285. cmchar "14pt, top right";
  286. qbeginchar(24,28pt#);
  287. numeric delta;
  288. pickup nib;
  289. arcs;
  290. draw z7{right}..z6{downright}..z5{down};
  291. endchar;
  292.  
  293. cmchar "14pt, bottom right";
  294. qbeginchar(25,28pt#);
  295. numeric delta;
  296. pickup nib;
  297. arcs;
  298. draw z1{down}..z8{downleft}..z7{left};
  299. endchar;
  300.  
  301. cmchar "14pt, bottom left";
  302. qbeginchar(26,28pt#);
  303. numeric delta;
  304. pickup nib;
  305. arcs;
  306. draw z3{left}..z2{upleft}..z1{up};
  307. endchar;
  308.  
  309. cmchar "14pt, top left";
  310. qbeginchar(27,28pt#);
  311. numeric delta;
  312. pickup nib;
  313. arcs;
  314. draw z5{up}..z4{upright}..z3{right};
  315. endchar;
  316.  
  317. cmchar "16pt, top right";
  318. qbeginchar(28,32pt#);
  319. numeric delta;
  320. pickup nib;
  321. arcs;
  322. draw z7{right}..z6{downright}..z5{down};
  323. endchar;
  324.  
  325. cmchar "16pt, bottom right";
  326. qbeginchar(29,32pt#);
  327. numeric delta;
  328. pickup nib;
  329. arcs;
  330. draw z1{down}..z8{downleft}..z7{left};
  331. endchar;
  332.  
  333. cmchar "16pt, bottom left";
  334. qbeginchar(30,32pt#);
  335. numeric delta;
  336. pickup nib;
  337. arcs;
  338. draw z3{left}..z2{upleft}..z1{up};
  339. endchar;
  340.  
  341. cmchar "16pt, top left";
  342. qbeginchar(31,32pt#);
  343. numeric delta;
  344. pickup nib;
  345. arcs;
  346. draw z5{up}..z4{upright}..z3{right};
  347. endchar;
  348.  
  349. cmchar "18pt, top right";
  350. qbeginchar(32,36pt#);
  351. numeric delta;
  352. pickup nib;
  353. arcs;
  354. draw z7{right}..z6{downright}..z5{down};
  355. endchar;
  356.  
  357. cmchar "18pt, bottom right";
  358. qbeginchar(33,36pt#);
  359. numeric delta;
  360. pickup nib;
  361. arcs;
  362. draw z1{down}..z8{downleft}..z7{left};
  363. endchar;
  364.  
  365. cmchar "18pt, bottom left";
  366. qbeginchar(34,36pt#);
  367. numeric delta;
  368. pickup nib;
  369. arcs;
  370. draw z3{left}..z2{upleft}..z1{up};
  371. endchar;
  372.  
  373. cmchar "18pt, top left";
  374. qbeginchar(35,36pt#);
  375. numeric delta;
  376. pickup nib;
  377. arcs;
  378. draw z5{up}..z4{upright}..z3{right};
  379. endchar;
  380.  
  381. cmchar "20pt, top right";
  382. qbeginchar(36,40pt#);
  383. numeric delta;
  384. pickup nib;
  385. arcs;
  386. draw z7{right}..z6{downright}..z5{down};
  387. endchar;
  388.  
  389. cmchar "20pt, bottom right";
  390. qbeginchar(37,40pt#);
  391. numeric delta;
  392. pickup nib;
  393. arcs;
  394. draw z1{down}..z8{downleft}..z7{left};
  395. endchar;
  396.  
  397. cmchar "20pt, bottom left";
  398. qbeginchar(38,40pt#);
  399. numeric delta;
  400. pickup nib;
  401. arcs;
  402. draw z3{left}..z2{upleft}..z1{up};
  403. endchar;
  404.  
  405. cmchar "20pt, top left";
  406. qbeginchar(39,40pt#);
  407. numeric delta;
  408. pickup nib;
  409. arcs;
  410. draw z5{up}..z4{upright}..z3{right};
  411. endchar;
  412.  
  413. % The full circles have height and depth 0pt because otherwise there
  414. % are too many heights and depths for the TFM files
  415.  
  416. cmchar "1pt, circle";
  417. beginchar(96,1pt#,0pt#,0pt#);
  418. pickup nib;
  419. draw fullcircle scaled w;
  420. endchar;
  421.  
  422. cmchar "2pt, circle";
  423. beginchar(97,2pt#,0pt#,0pt#);
  424. pickup nib;
  425. draw fullcircle scaled w;
  426. endchar;
  427.  
  428. cmchar "3pt, circle";
  429. beginchar(98,3pt#,0pt#,0pt#);
  430. pickup nib;
  431. draw fullcircle scaled w;
  432. endchar;
  433.  
  434. cmchar "4pt, circle";
  435. beginchar(99,4pt#,0pt#,0pt#);
  436. pickup nib;
  437. draw fullcircle scaled w;
  438. endchar;
  439.  
  440. cmchar "5pt, circle";
  441. beginchar(100,5pt#,0pt#,0pt#);
  442. pickup nib;
  443. draw fullcircle scaled w;
  444. endchar;
  445.  
  446. cmchar "6pt, circle";
  447. beginchar(101,6pt#,0pt#,0pt#);
  448. pickup nib;
  449. draw fullcircle scaled w;
  450. endchar;
  451.  
  452. cmchar "7pt, circle";
  453. beginchar(102,7pt#,0pt#,0pt#);
  454. pickup nib;
  455. draw fullcircle scaled w;
  456. endchar;
  457.  
  458. cmchar "8pt, circle";
  459. beginchar(103,8pt#,0pt#,0pt#);
  460. pickup nib;
  461. draw fullcircle scaled w;
  462. endchar;
  463.  
  464. cmchar "9pt, circle";
  465. beginchar(104,9pt#,0pt#,0pt#);
  466. pickup nib;
  467. draw fullcircle scaled w;
  468. endchar;
  469.  
  470. cmchar "10pt, circle";
  471. beginchar(105,10pt#,0pt#,0pt#);
  472. pickup nib;
  473. draw fullcircle scaled w;
  474. endchar;
  475.  
  476. cmchar "11pt, circle";
  477. beginchar(106,11pt#,0pt#,0pt#);
  478. pickup nib;
  479. draw fullcircle scaled w;
  480. endchar;
  481.  
  482. cmchar "12pt, circle";
  483. beginchar(107,12pt#,0pt#,0pt#);
  484. pickup nib;
  485. draw fullcircle scaled w;
  486. endchar;
  487.  
  488. cmchar "13pt, circle";
  489. beginchar(108,13pt#,0pt#,0pt#);
  490. pickup nib;
  491. draw fullcircle scaled w;
  492. endchar;
  493.  
  494. cmchar "14pt, circle";
  495. beginchar(109,14pt#,0pt#,0pt#);
  496. pickup nib;
  497. draw fullcircle scaled w;
  498. endchar;
  499.  
  500. cmchar "15pt, circle";
  501. beginchar(110,15pt#,0pt#,0pt#);
  502. pickup nib;
  503. draw fullcircle scaled w;
  504. endchar;
  505.  
  506. cmchar "1pt, blob";
  507. beginchar(112,1pt#,0pt#,0pt#);
  508. pickup pencircle scaled w;
  509. drawdot origin;
  510. endchar;
  511.  
  512. cmchar "2pt, blob";
  513. beginchar(113,2pt#,0pt#,0pt#);
  514. pickup pencircle scaled w;
  515. drawdot origin;
  516. endchar;
  517.  
  518. cmchar "3pt, blob";
  519. beginchar(114,3pt#,0pt#,0pt#);
  520. pickup pencircle scaled w;
  521. drawdot origin;
  522. endchar;
  523.  
  524. cmchar "4pt, blob";
  525. beginchar(115,4pt#,0pt#,0pt#);
  526. pickup pencircle scaled w;
  527. drawdot origin;
  528. endchar;
  529.  
  530. cmchar "5pt, blob";
  531. beginchar(116,5pt#,0pt#,0pt#);
  532. pickup pencircle scaled w;
  533. drawdot origin;
  534. endchar;
  535.  
  536. cmchar "6pt, blob";
  537. beginchar(117,6pt#,0pt#,0pt#);
  538. pickup pencircle scaled w;
  539. drawdot origin;
  540. endchar;
  541.  
  542. cmchar "7pt, blob";
  543. beginchar(118,7pt#,0pt#,0pt#);
  544. pickup pencircle scaled w;
  545. drawdot origin;
  546. endchar;
  547.  
  548. cmchar "8pt, blob";
  549. beginchar(119,8pt#,0pt#,0pt#);
  550. pickup pencircle scaled w;
  551. drawdot origin;
  552. endchar;
  553.  
  554. cmchar "9pt, blob";
  555. beginchar(120,9pt#,0pt#,0pt#);
  556. pickup pencircle scaled w;
  557. drawdot origin;
  558. endchar;
  559.  
  560. cmchar "10pt, blob";
  561. beginchar(121,10pt#,0pt#,0pt#);
  562. pickup pencircle scaled w;
  563. drawdot origin;
  564. endchar;
  565.  
  566. cmchar "11pt, blob";
  567. beginchar(122,11pt#,0pt#,0pt#);
  568. pickup pencircle scaled w;
  569. drawdot origin;
  570. endchar;
  571.  
  572. cmchar "12pt, blob";
  573. beginchar(123,12pt#,0pt#,0pt#);
  574. pickup pencircle scaled w;
  575. drawdot origin;
  576. endchar;
  577.  
  578. cmchar "13pt, blob";
  579. beginchar(124,13pt#,0pt#,0pt#);
  580. pickup pencircle scaled w;
  581. drawdot origin;
  582. endchar;
  583.  
  584. cmchar "14pt, blob";
  585. beginchar(125,14pt#,0pt#,0pt#);
  586. pickup pencircle scaled w;
  587. drawdot origin;
  588. endchar;
  589.  
  590. cmchar "15pt, blob";
  591. beginchar(126,15pt#,0pt#,0pt#);
  592. pickup pencircle scaled w;
  593. drawdot origin;
  594. endchar;
  595.  
  596. bye
  597.  
  598.